<!--#include file="../Inc/conn.asp"-->
<%
Dim UserName
UserName = trim(Request.QueryString("UserName"))
If UserName = "" Then 
	Response.Write("用户名不能为空")
	Response.End
Elseif Not ChkRegName(UserName) then
Response.Write("WordErr")
Else
	If len(UserName) < 2 Then 
		Response.Write("用户名不能少于两位")
		Response.End
	Else
		sql="select [ID] From ["&tbname&"_user] where username='"& UserName &"'"
		set rs = server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,1
		If Not Rs.eof Then 
			Response.Write("False")
		Else
			Response.Write("True")
		End if  
		Rs.Close:Set Rs = Nothing
	End if
End if
Conn.Close : Set Conn = Nothing
%>